100 CALL CLEAR :: CALL SCREEN(12)
110 DISPLAY AT(10,6):"TI 99/4A FROGGER" :: DISPLAY AT(12,4):"USARE EXTENDED BASIC"
111 DISPLAY AT(14,6):"USARE I JOYSTICKS"
114 FOR A=1 TO 600 :: NEXT A
120 TYPE$(1)="DIS/FIX"
125 CALL CLEAR :: DISPLAY AT(2,9):"ISTRUZIONI" :: DISPLAY AT(10,1):"USA I JOYSTICKS PER AIUTARE LA RANA AD ATTRAVERSARE LA"
126 DISPLAY AT(12,1):"STRADA.                     PREMI 'FUOCO' PER   SALTARE"
127 DISPLAY AT(18,1):"*MIRA AL RETRO DEI TRONCHI*"
130 DISPLAY AT(22,7):"PREMERE UN TASTO QUALUNQUE" :: CALL KEY(0,K,S) :: IF S=0 THEN 130
135 CALL CLEAR :: CALL SCREEN(12) :: DISPLAY AT(5,4):"SCEGLIERE IL LIVELLO"
136 DISPLAY AT(7,8):"DA 1 A 4: "
137 DISPLAY AT(12,4):"(NUMERO PIU' ALTO= TRAFFICO PIU' VELOCE,RANE PIU' LENTE)"
138 ACCEPT AT(7,19)SIZE(1)VALIDATE("1234"):SK$ :: SK=VAL(SK$)
140 CALL CLEAR :: CALL SCREEN(2) :: SP=2+SK :: K=SK :: FRG=10-SK
150 CALL CHAR(112,"FFFFFFFFFFFFFFFF",113,"0000000000000000")
160 CALL CHAR(120,"0000000000087F7C7F777F730000000000000000033FFFF7F3FFFF5200000000")
170 CALL CHAR(124,"000000000080FEE7FFBFFF73000000000000E0202030FEE6FF66F65C00000000")
180 CALL CHAR(128,"00000003075527233F070F5F233F0100000000C0E0AAE4C4FCE0F0FAC4FC8000")
190 CALL CHAR(132,"0003075527233F0303030303031F112800C0E0AAE4C4FCC0C0C0C0C0C0F88814")
200 CALL CHAR(136,"0000000002024363000000000000000000000000000080C00000000000000000")
210 CALL CHAR(140,"0000002030383C1E1F0D0F0B00000000000000040C1C3C78E0E0E04000000000")
220 CALL CHAR(95,"00FF00000000FF00")
230 CALL CHAR(96,"000000007077277F")
240 CALL CHAR(97,"7F27777000000000")
250 CALL CHAR(98,"000000000EEEE4FF")
260 CALL CHAR(99,"FFE4EE0E00000000")
270 CALL COLOR(1,2,1,0,6,1,8,8,1,9,8,1,11,6,2)
280 CALL HCHAR(12,1,95,32) :: CALL HCHAR(23,1,95,32)
290 FOR D=3 TO 10 :: CALL HCHAR(D,1,112,32) :: NEXT D
300 FOR A=3 TO 4 :: CALL COLOR(A,16,1) :: NEXT A
310 CALL HCHAR(1,1,113,32) :: CALL HCHAR(2,1,113,32) :: CALL HCHAR(11,1,113,32)
320 FOR Q=2 TO 32 STEP 2 :: CALL HCHAR(17,Q,95) :: NEXT Q
330 DISPLAY AT(1,12):FRG
340 CALL MAGNIFY(3)
350 CALL SPRITE(#1,128,4,178,100)
360 CALL SPRITE(#18,124,11,17,10,0,2*SP,#19,124,11,17,90,0,2*SP)
370 CALL SPRITE(#20,124,11,33,1,0,SP,#21,120,11,49,120,0,3*SP)
380 CALL SPRITE(#10,124,11,33,78,0,SP)
390 CALL SPRITE(#13,120,11,49,90,0,3*SP,#14,124,11,65,168,0,2*SP)
400 CALL SPRITE(#2,99,12,97,150,0,5*SP)
410 CALL SPRITE(#3,99,10,113,100,0,6*SP,#6,99,14,113,50,0,6*SP)
420 CALL SPRITE(#4,99,5,161,20,0,-4*SP,#7,99,12,161,100,0,-4*SP)
430 CALL SPRITE(#5,99,12,145,100,0,-6*SP,#8,99,16,145,50,0,-6*SP)
440 CALL POSITION(#1,H,J) :: IF H<=88 THEN CALL MOTION(#1,0,0) :: CALL LOCATE(#1,81,J) :: GOTO 580
450 CALL JOYST(1,X,Y) :: IF X=0 AND Y=0 THEN CALL PATTERN(#1,128)ELSE CALL PATTERN(#1,132)
460 CALL MOTION(#1,-ABS(Y*4),X*4)
470 CALL COINC(ALL ,G) :: IF G=0 THEN 440 ELSE 480
480 CALL SOUND(100,-5,1) :: CALL MOTION(#1,0,0) :: CALL COLOR(#1,9) :: FOR G=1 TO 200 :: NEXT G
490 FRG=FRG-1 :: DISPLAY AT(1,12):FRG
500 IF FRG=0 THEN 510 ELSE 530
510 CALL DELSPRITE(ALL) :: CALL CLEAR :: CALL COLOR(8,2,1) :: CALL SCREEN(15) :: DISPLAY AT(8,4):"NESSUNA RANA RIMASTA,       GIOCHI ANCORA S/N ?"
520 CALL KEY(0,K,S) :: IF S=0 THEN 520 ELSE IF K=83 THEN RUN 135 ELSE STOP
530 CALL LOCATE(#1,170,100) :: CALL COLOR(#1,4) :: GOTO 440
540 FRG=FRG+1 :: DISPLAY AT(1,12):FRG :: K=K+1 :: IF K=12 THEN 1000 ELSE SP=SP+1
550 CALL MOTION(#2,0,5*SP,#3,0,6*SP,#4,0,-4*SP,#6,0,6*SP,#7,0,-4*SP,#5,0,-6*SP,#8,0,-6*SP)
560 CALL MOTION(#10,0,SP,#13,0,3*SP,#14,0,2*SP,#18,0,2*SP,#19,0,2*SP,#20,0,SP,#21,0,3*SP)
570 FOR G=1 TO 100 :: NEXT G :: CALL LOCATE(#1,170,100) :: CALL COLOR(#1,4) :: GOTO 440
580 CALL POSITION(#1,H,J)
590 CALL KEY(1,K1,S1) :: IF S1=0 THEN CALL PATTERN(#1,128) :: GOTO 580 ELSE CALL PATTERN(#1,132) :: A=0
600 FL=0 :: H=H-16 :: CALL LOCATE(#1,H,J) :: IF H=1 THEN CALL COLOR(#1,1) :: GOTO 540
610 CALL COINC(ALL ,G) :: IF G<>0 THEN 620 ELSE IF H=81 THEN FL=0 :: GOTO 580 ELSE FL=0 :: GOTO 480
620 IF FL=1 THEN 580
630 IF J+3*SP>256 THEN FL=0 :: GOTO 480
640 ON(H-1)/16 GOTO 650,660,670,680,650
650 A=2*SP :: CALL LOCATE(#1,H,J+SP) :: CALL MOTION(#1,0,A) :: FL=1 :: CALL SOUND(10,3000,1) :: GOTO 580
660 A=SP :: CALL LOCATE(#1,H,J+SP) :: CALL MOTION(#1,0,A) :: FL=1 :: CALL SOUND(10,3000,1) :: GOTO 580
670 A=3*SP :: CALL LOCATE(#1,H,J+SP) :: CALL MOTION(#1,0,A) :: FL=1 :: CALL SOUND(10,3000,1) :: GOTO 580
680 A=2*SP :: CALL LOCATE(#1,H,J+SP) :: CALL MOTION(#1,0,A) :: FL=1 :: CALL SOUND(10,3000,1) :: GOTO 580
1000 CALL CLEAR :: CALL CHARSET
1010 DISPLAY AT(2,1):"HAI COMPLETATO LO SCHERMO!!"
1020 DISPLAY AT(6,1):"ORA PROVA DINUOVO SENZA FAR MORIRE NESSUNA RANA" :: RUN 135
